home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 March / EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso / earcd / -archivi / -recent2 / cp4.lha / cp4 / Support / PlaySID3.0 / arexx / jukebox.rexx < prev    next >
OS/2 REXX Batch file  |  1994-08-12  |  859b  |  38 lines
  1. /* PlaySID jukebox example */
  2.  
  3. if(~show('l', 'rexxsupport.library'))then do
  4.    if(~addlib( 'rexxsupport.library', 0, -30, 0))then do
  5.       say "Could not open ARexx support library."
  6.       exit 10
  7.    end
  8. end
  9.  
  10. data = 'sid:jukebox.data'
  11. path = 'sid:music/'
  12. file = 'file'
  13.  
  14. if open(file, data, 'r') then do
  15.    address command "run SID:PlaySID"
  16.    line = readln(file)
  17.    do while ~eof(file)
  18.       name = word(line, 1)
  19.       tune = word(line, 2)
  20.       time = word(line, 3)
  21.       if SID_Load(path || name) then do
  22.          numtunes = SID_NumTunes()
  23.          say "Found" numtunes "tunes in" name
  24.          say "Playing tune" tune "for" time "seconds"
  25.          SID_SetTune(tune)
  26.          SID_Play()
  27.          Delay(time * 50)
  28.          SID_Stop()
  29.       end
  30.       line = readln(file)
  31.    end
  32.    SID_Quit()
  33.    call close(file)
  34. end
  35. else
  36.    say "Unable to open file" data"."
  37.  
  38.